home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
TPUG Xtras
/
Xtras
/
progdisk.d64
/
math demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-02-07
|
13KB
|
518 lines
10 REM
20 REM ***** MATH DEMONSTRATION *****
25 REM
26 REM GREG WOODS FOR WHIZ KIDS
27 REM JAN 1984
30 REM
40 REM INITILAIZATION SECTION
50 REM
60 :
70 IF PEEK(49500) <> 202 OR PEEK(50000) <> 165 THEN LOAD"[205]SCRN CTRL",8,1
80 PRINT "[147]":POKE 53280,14:POKE 53281,6
85 PRINT CHR$(14)
90 UP=12*4096+256:DWN=UP+67:LFT=UP+295:RHT=UP+369:RVS=UP+447:COL=UP+511
100 FILL=UP+547:BRDR=UP+611
110 DR=1:GOTO 2000
120 :
130 REM *****************************
1000 :
1010 REM TIME DELAY LOOP
1020 :
1030 FOR NI=0 TO ND: NEXT: RETURN
1040 :
1050 REM *****************************
2000 :
2010 REM MAIN PROGRAM
2020 :
2025 REM **** MAIN TITLE PAGE
2030 PRINT"[147]"TAB(16)"[205] [193][160][212][160][200]"
2040 PRINT""TAB(16)"[196][160][197][160][205][160][207]"
2050 ND=20
2055 POKE56328,5: REM START THE CLOCK
2060 FOR I=1 TO 3: REM TIMES TO CYCLE
2070 :K=INT(RND(0)*8)
2080 :FOR J=0 TO 7: REM CYCLE OUT
2090 ::SYS BRDR,J,J,40-2*J,25-2*J,160,J+K
2100 ::GOSUB1000
2110 :NEXT
2120 :K=INT(RND(-1)*8)
2130 :FOR J=8 TO 0 STEP -1: REM CYCLE OUT
2140 ::SYS BRDR,J,J,40-2*J,25-2*J,160,J+K
2150 ::GOSUB1000
2160 :NEXT
2170 NEXT
2180 ND=1500:GOSUB 1000
2190 PRINT "[147]": T=25: L=4:GOSUB 4000
2200 KY$="*": GOSUB 43000
2210 ND=1000: GOSUB 1000
2220 POKE 53280,6: POKE 53281,1
2230 PRINT "[147]"
2232 A$=" [146]"
2233 GOSUB 40000:
2240 A$=" [215][197][204][195][207][205][197][160][212][207][160][205][217][160][215][207][210][204][196] "
2245 GOSUB 40000:
2247 A$=" [146]"
2248 GOSUB 40000: ND=20*T: GOSUB 1000
2250 A$=" [217]OU HAVE JUST TYPED YOUR FIRST"
2255 GOSUB 40000: ND=20*T: GOSUB 1000
2260 A$="PROGRAMS IN A COMPUTER LANGUAGE KNOWN"
2265 GOSUB 40000: ND=20*T: GOSUB 1000
2270 A$="AS [194][193][211][201][195]. [194][193][211][201][195] DOESN'T JUST MEAN"
2275 GOSUB 40000: ND=20*T: GOSUB 1000
2280 A$="SIMPLE OR ELEMENTARY. [201]T IS A WAY OF"
2285 GOSUB 40000: ND=20*T: GOSUB 1000
2290 A$="COMMUNICATING WITH THE COMPUTER IN A"
2295 GOSUB 40000: ND=10*T: GOSUB 1000
2300 A$="MANNER IT UNDERSTANDS. ([211]OME OTHERS"
2305 GOSUB 40000: ND=10*T: GOSUB 1000
2310 A$="ARE [195][207][194][207][204], [198][207][210][212][210][193][206], [195], [208]ASCAL, [204][207][199][207].)"
2315 GOSUB 40000: ND=20*T: GOSUB 1000
2320 A$=" [194][193][211][201][195] WAS DEVELOPED BY [202]OHN [203]EMENY"
2325 GOSUB 40000: ND=20*T: GOSUB 1000
2330 A$="AND [212]HOMAS [203]URTZ OF [196]ARTMOUTH [195]OLLEGE"
2335 GOSUB 40000: ND=20*T: GOSUB 1000
2340 A$="[201] THOUGHT YOU MIGHT LIKE TO KNOW WHAT"
2345 GOSUB 40000: ND=20*T: GOSUB 1000
2350 A$="IT STOOD FOR. [202]UST BEFORE [201] TELL YOU,"
2355 GOSUB 40000: ND=20*T: GOSUB 1000
2360 A$="MAY [201] TAKE THE LIBERTY OF SAYING IT'S"
2365 GOSUB 40000: ND=20*T: GOSUB 1000
2370 A$="BEEN GREAT HAVING YOU ABOARD. [215]HEN"
2375 GOSUB 40000: ND=20*T: GOSUB 1000
2380 A$="YOU ARE BROWSING AROUND OUT THERE"
2385 GOSUB 40000: ND=20*T: GOSUB 1000
2390 A$="TELL THEM THE [195]APTAIN SENT YOU. "
2395 GOSUB 40000: ND=20*T: GOSUB 1000
2400 A$=" [194][151] [194][197][199][201][206][206][197][210][211]' ":PRINT
2405 GOSUB 40000: ND=20*T: GOSUB 1000
2410 A$=" [193][151] [193][204][204]-[208][213][210][208][207][211][197]"
2415 GOSUB 40000: ND=20*T: GOSUB 1000
2420 A$=" [211][151] [211][217][205][194][207][204][201][195] "
2425 GOSUB 40000: ND=20*T: GOSUB 1000
2430 A$=" [201][151] [201][206][211][212][210][213][195][212][201][207][206]"
2435 GOSUB 40000: ND=20*T: GOSUB 1000
2440 A$=" [195][151] [195][207][196][197][160] "
2445 GOSUB 40000: ND=20*T: GOSUB 1000
3810 ND=30000: GOSUB 1000
3820 POKE 53281,0: POKE 53280,2: PRINT"[147]"
3830 GOSUB 45000
3840 PRINT CHR$(142)" WAIT!"
3850 PRINT " NEXT PROGRAM LOADING."
3860 PRINT "[144]LOAD "CHR$(34)"HANGMAN"CHR$(34)",8"
3870 PRINT ""
3880 POKE 198,4: POKE 631,13: POKE 632,82: POKE 633,213: POKE 634,13
3890 END
3900 :
3980 :
3990 REM ******************************
4000 :
4010 REM PAGE ONE
4020 :
4030 PRINT "": POKE 53280,12: POKE 53281,1
4040 TT$="[205]ATH [212]RICKS": PG=1
4050 GOSUB 42000
4060 ND=10*T: GOSUB 1000: PRINT"[151]";
4070 A$=" [195][207][205][208][213][212][197][210] [205][193][212][200][197][205][193][212][201][195][211][151]":PRINT""
4075 GOSUB 40000: ND=10*T: GOSUB 1000
4080 A$="[212]HE COMPUTER IS ALSO A SUPER":PRINT""
4085 GOSUB 40000: ND=10*T: GOSUB 1000
4090 A$="CALCULATOR. [212]O SHOW YOU WHAT":PRINT""
4095 GOSUB 40000: ND=10*T: GOSUB 1000
4100 A$="[201] MEAN, WE WILL DO A SIMPLE EXAMPLE.":PRINT""
4105 GOSUB 40000: ND=PL*L: GOSUB 1000
4110 KY$="+": GOSUB 43000
4120 ND=300: GOSUB 1000
4130 GOSUB 41000
4980 :
4990 REM ******************************
5000 :
5010 REM PAGE TWO
5020 :
5030 PRINT"";:POKE53280,12:POKE53281,1
5040 TT$="[212]HE [208][210][201][206][212] [211]TATEMENT": PG=PG+1
5050 GOSUB 42000
5060 ND=60*T:GOSUB 1000:PRINT"[151]";
5070 A$="[212]O MAKE THE COMPUTER PERFORM A":PRINT
5075 GOSUB 40000: ND=10*T: GOSUB 1000
5080 A$="CALCULATION, WE MUST TELL IT TO":PRINT
5085 GOSUB 40000: ND=10*T: GOSUB 1000
5090 A$="[208][210][201][206][212] OUR COMPUTATION ON THE SCREEN.":PRINT
5095 GOSUB 40000: ND=10*T: GOSUB 1000
5110 A$="[215]HATEVER FOLLOWS [208][210][201][206][212] WILL BE":PRINT
5115 GOSUB 40000: ND=10*T: GOSUB 1000
5120 A$="COMPUTED AND PRINTED ON THE SCREEN.":PRINT
5125 GOSUB 40000: ND=PL*L: GOSUB 1000
5950 IN$="PRINT 10+10": AN$="20": GOSUB44000
5960 ND=750:GOSUB 1000
5970 GOSUB 41000
5980 :
5990 REM ******************************
6000 :
6010 REM PAGE THREE
6020 :
6030 PRINT"";:POKE53280,12:POKE53281,1
6040 TT$="[193]DDITION": PG=PG+1
6050 GOSUB 42000
6060 ND=60*T:GOSUB 1000:PRINT"[151]";
6070 A$="[193] COMPUTER CAN DO MORE THAN":PRINT""
6075 GOSUB 40000: ND=10*T: GOSUB 1000
6080 A$="JUST ADD TWO NUMBERS TOGETHER.": PRINT""
6085 GOSUB 40000: ND=10*T: GOSUB 1000
6090 A$="[212]RY THE NEXT EXAMPLE.": PRINT""
6095 GOSUB 40000: ND=PL*L: GOSUB 1000
6950 IN$="PRINT 10+10+10":AN$="30":GOSUB 44000
6960 ND=750:GOSUB 1000
6970 GOSUB 41000
6980 :
6990 REM ******************************
7000 :
7010 REM PAGE FOUR
7020 :
7030 PRINT"";:POKE53280,12:POKE53281,1
7040 TT$="[211]UBTRACTION": PG=PG+1
7050 GOSUB 42000
7060 ND=60*T:GOSUB 1000:PRINT"[151]";
7070 A$="[193]DDITION IS HANDY, BUT WE CAN":PRINT""
7075 GOSUB 40000: ND=10*T: GOSUB 1000
7080 A$="ALSO TELL THE COMPUTER TO":PRINT""
7085 GOSUB 40000: ND=10*T: GOSUB 1000
7090 A$="SUBTRACT NUMBERS.":PRINT""
7095 GOSUB 40000: ND=10*T: GOSUB 1000
7100 A$="[212]RY THE NEXT EXAMPLE.": PRINT""
7105 GOSUB 40000: ND=PL*L: GOSUB 1000
7950 IN$="PRINT 20-10":AN$="10":GOSUB 44000
7960 ND=750:GOSUB 1000
7970 GOSUB 41000
7980 :
7990 REM ******************************
8000 :
8010 REM PAGE FIVE
8020 :
8030 PRINT"";:POKE53280,12:POKE53281,1
8040 TT$="[205]ULTIPLICATION": PG=PG+1
8050 GOSUB 42000
8060 ND=60*T: GOSUB 1000: PRINT"[151]";
8070 A$="[205]ULTIPLICATION IS NO MORE":PRINT""
8075 GOSUB 40000: ND=10*T: GOSUB 1000
8090 A$="DIFFICULT. [193]LL YOU NEED TO":PRINT""
8095 GOSUB 40000: ND=10*T: GOSUB 1000
8100 A$="KNOW IS THAT COMPUTERS USE THE":PRINT""
8105 GOSUB 40000: ND=10*T: GOSUB 1000
8110 A$="ASTERISK (*) FOR MULTIPLICATION.":PRINT""
8115 GOSUB 40000: ND=PL*L: GOSUB 1000
8950 IN$="PRINT 10*10": AN$="100": GOSUB 44000
8960 ND=750:GOSUB 1000
8970 GOSUB 41000
8980 :
8990 REM ******************************
9000 :
9010 REM PAGE SIX
9020 :
9030 PRINT"";:POKE53280,12:POKE53281,1
9040 TT$="[196]IVISION": PG=PG+1
9050 GOSUB 42000
9060 ND=60*T:GOSUB 1000:PRINT"[151]";
9070 A$="[196]IVISION IS ALSO QUITE SIMPLE.":PRINT""
9075 GOSUB 40000: ND=10*T: GOSUB 1000
9080 A$="[217]OU NEED ONLY KNOW":PRINT""
9085 GOSUB 40000: ND=10*T: GOSUB 1000
9100 A$="THAT COMPUTERS USE THE":PRINT""
9105 GOSUB 40000: ND=10*T: GOSUB 1000
9110 A$="SLASH (/) FOR DIVISION.":PRINT""
9115 GOSUB 40000: ND=PL*L: GOSUB 1000
9950 IN$="PRINT 100/10":AN$="10":GOSUB 44000
9960 ND=750:GOSUB 1000
9970 GOSUB 41000
9980 :
9990 REM ******************************
10000 :
10010 REM PAGE SEVEN
10020 :
10030 PRINT"";:POKE53280,12:POKE53281,1
10040 TT$="[209]UOTATION [205]ARKS": PG=PG+1
10050 GOSUB 42000
10060 ND=60*T:GOSUB 1000:PRINT"[151]";
10070 A$="[211]EE IF YOU CAN FIGURE OUT":PRINT""
10075 GOSUB 40000: ND=10*T: GOSUB 1000
10080 A$="WHAT THE QUOTE MARKS IN THE":PRINT""
10085 GOSUB 40000: ND=10*T: GOSUB 1000
10100 A$="NEXT EXAMPLE ARE FOR.":PRINT""
10105 GOSUB 40000: ND=PL*L: GOSUB 1000
10950 IN$="PRINT "+CHR$(34)+"10+10="+CHR$(34)+" 10+10"
10955 AN$="[157]10+10= 20":GOSUB 44000
10960 ND=750:GOSUB 1000
10970 GOSUB 41000
10980 :
10990 REM *****************************
11000 GOTO 12000
11010 REM PAGE EIGHT
11020 :
11030 PRINT"";:POKE53280,12:POKE53281,1
11040 TT$="[212]HE [209]UESTION [205]ARK": PG=PG+1
11050 GOSUB 42000
11060 ND=60*T:GOSUB 1000:PRINT"[151]";
11070 A$="[200]ERE IS ANOTHER TRICK FOR":PRINT""
11075 GOSUB 40000: ND=10*T: GOSUB 1000
11080 A$="YOU TO FIGURE OUT.":PRINT
11085 GOSUB 40000: ND=10*T: GOSUB 1000
11100 A$="[215]E WILL DO TWO EXAMPLES.":PRINT""
11105 GOSUB 40000: ND=PL*L: GOSUB 1000
11910 IN$="? 10+10"
11920 AN$="20":GOSUB 44000
11930 ND=750:GOSUB 1000:GOSUB 42000
11940 IN$="? "+CHR$(34)+"10+10="+CHR$(34)+" 10+10"
11950 AN$="[157]10+10= 20":GOSUB 44000
11960 ND=750:GOSUB 1000
11970 GOSUB 41000
11980 :
11990 REM *****************************
12000 :
12010 REM PAGE NINE
12020 :
12030 PRINT"";:POKE53280,12:POKE53281,1
12040 TT$="[214]ARIABLES": PG=PG+1
12050 GOSUB 42000
12060 ND=60*T:GOSUB 1000:PRINT"[151]";
12070 A$="[206]OW WE WILL DO AN EXAMPLE THAT":PRINT""
12075 GOSUB 40000: ND=10*T: GOSUB 1000
12080 A$="IS A LITTLE MORE DIFFICULT.":PRINT
12085 GOSUB 40000: ND=10*T: GOSUB 1000
12090 A$="[215]E WILL HAVE TO TYPE THREE LINES":PRINT
12095 GOSUB 40000: ND=10*T: GOSUB 1000
12100 A$="BEFORE WE SEE THE END RESULT.":PRINT
12105 GOSUB 40000: ND=10*T: GOSUB 1000
12810 IN$="NUMBER=10"
12820 AN$="[145]":GOSUB 44000
12830 ND=750:GOSUB 1000: GOSUB 42000
12840 IN$="SUM=NUMBER+1"
12850 AN$="[145]":GOSUB 44000
12860 ND=750:GOSUB 1000: GOSUB 42000
12870 IN$="PRINT SUM"
12880 AN$="11":GOSUB 44000
12890 ND=750:GOSUB 1000
12970 GOSUB 41000
12980 :
12990 REM *****************************
13000 :
13010 REM PAGE TEN
13020 :
13030 PRINT"";:POKE53280,12:POKE53281,1
13040 TT$="[211]HORT [200]AND": PG=PG+1
13050 GOSUB 42000
13060 ND=60*T:GOSUB 1000:PRINT"[151]";
13070 A$="[200]ERE IS THE EXAMPLE YOU TYPED:":PRINT
13075 GOSUB 40000: ND=10*T: GOSUB 1000
13080 A$="NUMBER=10 ":PRINT
13085 GOSUB 40000: ND=10*T: GOSUB 1000
13100 A$="SUM=NUMBER+1"
13105 GOSUB 40000: ND=10*T: GOSUB 1000
13110 A$="PRINT SUM "
13115 GOSUB 40000: ND=10*T: GOSUB 1000
13120 A$=" [193][206][211][215][197][210][151] 11 "
13125 GOSUB 40000: ND=10*T: GOSUB 1000
13130 A$="[206]OW WE WILL DO THE SAME EXAMPLE":PRINT""
13135 GOSUB 40000: ND=10*T: GOSUB 1000
13140 A$="IN A MUCH SHORTER WAY.":PRINT
13145 GOSUB 40000: ND=PL*L: GOSUB 1000
13810 IN$="N=10"
13820 AN$="[145]":GOSUB 44000
13830 ND=750:GOSUB 1000: GOSUB 42000
13840 IN$="S=N+1"
13850 AN$="[145]":GOSUB 44000
13860 ND=750:GOSUB 1000: GOSUB 42000
13870 IN$="PRINT S"
13880 AN$="11":GOSUB 44000
13890 ND=750:GOSUB 1000: GOSUB 41000
13980 :
13990 REM *****************************
14000 :
14010 REM PAGE ELEVEN
14020 :
14030 PRINT"";:POKE53280,12:POKE53281,1
14040 TT$="[211]HORT [200]AND": PG=PG+1
14050 GOSUB 42000
14060 ND=60*T:GOSUB 1000:PRINT"[151]";
14070 A$="[200]ERE IS THE SECOND EXAMPLE:":PRINT
14075 GOSUB 40000: ND=10*T: GOSUB 1000
14080 A$="N=10 ":PRINT
14085 GOSUB 40000: ND=10*T: GOSUB 1000
14100 A$="S=N+1 "
14105 GOSUB 40000: ND=10*T: GOSUB 1000
14110 A$="PRINT S "
14115 GOSUB 40000: ND=10*T: GOSUB 1000
14120 A$=" [193][206][211][215][197][210][151] 11 "
14125 GOSUB 40000: ND=10*T: GOSUB 1000
14130 A$="[200]ERE IS ONE FINAL EXAMPLE FOR":PRINT""
14135 GOSUB 40000: ND=10*T: GOSUB 1000
14140 A$="YOU TO TRY.":PRINT
14145 GOSUB 40000: ND=PL*L: GOSUB 1000
14810 IN$="A=10"
14820 AN$="[145]":GOSUB 44000
14830 ND=750:GOSUB 1000: GOSUB 42000
14840 IN$="B=20"
14850 AN$="[145]":GOSUB 44000
14860 ND=750:GOSUB 1000: GOSUB 42000
14870 IN$="PRINT A+B"
14880 AN$="30":GOSUB 44000
14890 ND=750:GOSUB 1000: GOSUB 41000
14980 :
14990 REM *****************************
15000 :
15010 REM PAGE TWELVE
15020 :
15030 PRINT"";:POKE53280,12:POKE53281,1
15040 TT$="[217]OU'RE [198]INISHED": PG=PG+1
15050 GOSUB 42000
15060 ND=60*T:GOSUB 1000:PRINT"[151]";
15070 A$="[200]ERE IS THAT LAST EXAMPLE AGAIN:":PRINT
15075 GOSUB 40000: ND=10*T: GOSUB 1000
15080 A$="A=10 ":PRINT
15085 GOSUB 40000: ND=10*T: GOSUB 1000
15100 A$="B=20 "
15105 GOSUB 40000: ND=10*T: GOSUB 1000
15110 A$="PRINT A+B"
15115 GOSUB 40000: ND=10*T: GOSUB 1000
15120 A$=" [193][206][211][215][197][210][151] 30 "
15125 GOSUB 40000: ND=10*T: GOSUB 1000
15130 A$="[215]E HOPE THAT THIS EXERCISE":PRINT""
15135 GOSUB 40000: ND=10*T: GOSUB 1000
15140 A$="HAS GIVEN YOU AN IDEA OF":PRINT
15145 GOSUB 40000: ND=10*T: GOSUB 1000
15150 A$=" [195][207][205][208][213][212][197][210][160][205][193][212][200][197][205][193][212][201][195][211]![151]":PRINT
15155 GOSUB 40000: ND=PL*L: GOSUB 1000
15980 :
15990 REM *****************************
39940 :
39950 REM *****************************
39960 :
39970 RETURN
39980 :
39990 REM *****************************
40000 :
40010 REM WRITE A LINE CENTERED
40020 :
40030 PRINT TAB(((40-LEN(A$))/2));
40040 ND=T
40050 FOR I=1 TO LEN(A$)
40060 :PRINT MID$(A$,I,1)" [146][157]";
40070 :GOSUB 1000
40080 NEXT
40090 PRINT" [157]": PL=PL+LEN(A$)
40100 RETURN
40110 :
40120 REM *****************************
41000 :
41010 REM CLEAR CENTER WINDOW
41020 :
41030 IF DR = 1 THEN 41070
41040 IF DR = 2 THEN 41130
41050 IF DR = 3 THEN 41190
41060 IF DR = 4 THEN 41250
41070 FOR I=1 TO 40
41080 :SYS LFT,0,2,40,15,0
41090 :ND=5:GOSUB 1000
41100 NEXT
41110 ND=750:GOSUB 1000
41120 GOTO41310
41130 FOR I=1 TO 19
41140 :SYS UP,0,2,40,15,0
41150 :ND=35:GOSUB 1000
41160 NEXT
41170 ND=750:GOSUB 1000
41180 GOTO41310
41190 FOR I=1 TO 40
41200 :SYS RHT,0,2,40,15,0
41210 :ND=5:GOSUB 1000
41220 NEXT
41230 ND=750:GOSUB 1000
41240 GOTO41310
41250 FOR I=1 TO 19
41260 :SYS DWN,0,2,40,15,0
41270 :ND=35:GOSUB 1000
41280 NEXT
41290 ND=750:GOSUB 1000
41300 GOTO41310
41310 DR=DR+1:IF DR=5 THEN DR=1
41320 RETURN
41980 :
41990 REM *****************************
42000 :
42010 REM TITLE A PAGE CLEAR WINDOW 3
42020 :
42030 PRINT"";
42040 SYS FILL,1,0,38,1,160,6
42050 PRINT""TAB(1)TT$TAB(31)"[208]AGE "PG
42060 SYS FILL,1,17,38,7,160,2
42070 RETURN
42980 :
42990 REM *****************************
43000 :
43010 REM PRESS A KEY TO CONTINUE
43020 :
43030 SYS FILL,7,19,26,3,160,6
43040 PRINT "";
43050 PRINT ""
43060 PRINT TAB(8)"""[208]RESS "KY$" TO CONTINUE..."
43070 GET Q$:IF Q$ <> KY$ THEN 43070
43080 RETURN
43970 RETURN
43980 :
43990 REM *****************************
44000 :
44010 REM TYPE A LINE TO CONTINUE
44020 :
44030 PRINT ""
44040 PRINT ""
44050 PRINT TAB(3)"[208]LEASE TYPE THE FOLLOWING LINE:"
44060 PRINT TAB(3);"";IN$;" (PRESS [146][210][197][212][213][210][206])"
44070 PRINT TAB(3);:QC$="":POKE908,0
44080 PRINT "[146] [157]";
44085 IF LEN(QC$) > 35 THEN 44120
44090 GETQ$:IFQ$=""THEN44160
44100 IFQ$=CHR$(13)ORQ$=CHR$(141)THEN44190
44110 IFQ$<>CHR$(157)ANDQ$<>CHR$(20)THEN44130
44115 IF QC$="" THEN 44080
44120 QC$=LEFT$(QC$,LEN(QC$)-1):PRINT"[157] [157][157]";:GOTO44080
44130 IFASC(Q$)<32ORASC(Q$)>95THEN44080
44140 QC$=QC$+Q$:IFASC(Q$)=34THEN:PRINTCHR$(34);CHR$(34);"[157] [157]";:GOTO44080
44150 PRINTQ$;:GOTO44080
44160 FOR I=1 TO 150: NEXTI
44170 PRINT" [146][157]";
44180 FOR I=1 TO 200:NEXTI:GOTO 44080
44190 IF IN$ = QC$ THEN 44200
44192 SYS FILL,1,17,38,7,160,2:PRINT"";
44194 PRINT TAB(5)"[211][207][210][210][217], PRESS ANY KEY TO RETRY.";
44196 GET Q$: IF Q$="" THEN 44196
44198 SYS FILL,1,17,38,7,160,2: GOTO 44000
44200 PRINT" ":PRINT TAB(4)""AN$
44210 PRINT TAB(3)"READY."
44215 IF AN$="[145]"THEN:PRINT"";
44220 PRINT "[145][145][145]"TAB(5+LEN(AN$));
44230 FOR I=1 TO 5
44240 :PRINT "_[157]";
44250 :FOR J=1 TO 200:NEXTJ
44260 :PRINT " [157]";
44270 :FOR J=1 TO 200:NEXTJ
44280 NEXTI
44290 ND=500:GOSUB 1000
44300 RETURN
44980 :
44990 REM *****************************
45000 :
45010 REM STOP SIGN
45020 :
45030 PRINT""
45040 FORI=1TO16:PRINT"";:NEXT
45050 PRINTTAB(28)" [169] [223]"
45060 PRINTTAB(28)"[169] [223]"
45070 PRINTTAB(28)" [146][161] [182] "
45080 PRINTTAB(28)" [146][161]STOP[182] "
45090 PRINTTAB(28)" [146][161] [182] "
45100 PRINTTAB(28)"[223] [146][169]"
45110 PRINTTAB(28)" [223] [146][169]"
45120 PRINT"":RETURN
45980 :
45990 REM *****************************
59980 :
59990 REM *****************************